Dr. Windows 3/dr win3.zip/dr win3/DATABASE/FOXRYAN.ZIP/VERIFY6.PRG

Text File | 1993-07-11 | 644b | 36 lines

m.today = {07/09/93}
m.i = 1
m.form = "form" + alltrim(str(m.i))
m.newdb = m.form + ".dbf"
m.olddb = "b:" + m.newdb
select 0
use &newdb alias newdata
delete for .T.
pack
select 0
use &olddb alias olddata noupdate
go top
scan
    scatter memvar memo
    if m.i = 1
        m.passzone = m.parkinglot
    endif
    select newdata
    append blank
    gather memvar memo
    select facility
    go top
    locate for facility.facility=olddata.facility
    if eof()
        insert into facility (company, facility) values ("Company", olddata.facility)
    endif
    select olddata
endscan
* Invariant: olddata is the current database.
use
select newdata
use